Вывести на экран квадрат каждого элемента массива если массив равен 15 — Pascal(Паскаль)

const
n=15;
var
i:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();

 for i:=1 to 15 do
 begin
  writeln(sqr(a[i]):3);
 end;
 

end.